home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Graphing Calculator 2.1 Demo / Graphing Calculator 2.1 Demo.rsrc / Demo_1404_Surfaces < prev    next >
Text File  |  1998-08-07  |  1KB  |  19 lines
  1. Hz=xy                            "To graph a 3D surface, type a function of x and y, starting with 'z='."
  2. Jz=e^-r@%%(sin2pir-rcos3#)
  3. Ksinxy+1/2%cos2x+1/3%sin3y+1/4%cos4(x+y)A/1+|sin5y+1/2%cos6x+1/3%sin7y+1/4%cos8xA/1+|(sin10xy+1/2%cos10x+1/3%sin12y+1/4%cos13(x+y))/1+|sin14y+1/2%cos15x+1/3%sin16y+1/4%cos17x    ""
  4. Gr=.5sin7#+z@
  5. Xr=.1cos(nphi-5n)-2    n=2,5,10    "To animate a 3D surface, include n in the function."
  6. G#=rz
  7. Gphi=npir        n=0,1,10
  8. Gr=1+2sin2phi*sin2#
  9. Ix^10%+y^10%+z^10=1
  10. Fr=2sin(nphi+cos4#            n=0,4,20
  11. Fr=|2sin2phi*sin2#+2cos2phi;phi<1.2;z>|x-y        "You may arbitrarily clip a surface, as shown above."
  12. x@+y@+z@+sin4x+sin4y+sin4z=1;WhTsTv=W9|xyzT.7T1        "You may choose the color at each point of a surface, as shown above."
  13. KW=W(2+sin2piv*sin2piu)&B%sin3pivTsin2piv*cos2piu+4v-2TP%cos3piv    ""
  14. JSW=W(2+vsin2piu)&B%sin2piv+2(1-v)sin3pinTvcos2piu+2(1-v)sin2pinTP%cos2piv+2(1-v)cospin    n=0,1,20
  15. GW=W(2+.2sin2piu)&B%sinnpivT.2cos2piu+3cos2pivTP%cosnpiv    n=0,4,40
  16. GW=W(2.5+(cosnpiv*sin2piu-(sinnpiv)sin4piu))&B%cos2pivTP%sin2pivTsinnpiv*sin2piu+(cosnpiv)sin4piu    n=0,1,20
  17. ((x@+y@)-.1)@-2(x@-y@)cos2z-4xysin2z=-.8N.3(xsinz-ycosz)@%+1/1+e^100(1-xx-yy)%%+.3(sin4z)@=.1
  18. Kx@+y@+z@+1/1+e^-100(zcosn+xsinn)=1NKx@+y@+z@+1/1+e^100z=1NF(xcosn-zsinn-.2)@/1+3n%+y@+10(zcosn+xsinn)@%+1/1+e^10n=.35N1/(x-.5)@+(y-.4)@+(z-.5)@%%+1/(x-.5)@+(y+.4)@+(z-.5)@=15    n=0,1,10
  19.